procedure TForm1.Button1Click(Sender: TObject);
begin
  DateSeparator   := '.';
  ShortDateFormat := 'dd.mm.yy';
  LongDateFormat  := 'dddd, dd.mmmm.yyyy';
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  {shows the short and long month name of month number 11}
  ShowMessage(ShortMonthNames[11] + ' - ' + LongMonthNames[11]);
  {shows the short and long day name of day number 6}
  ShowMessage(ShortDayNames[5] + ' - ' + LongDayNames[5]);
end;
